hidden

	sei
	LDA #$01
	STA $D012
	lda #27
	sta $d011
;
	lda #<irq_h
	ldy #>irq_h
	sta $0314
	sty $0315
	cli

;	jsr reset_sid

	ldx #0
u4	lda #32
	sta $0400,x
	sta $0500,x	
	sta $0600,x
	sta $0700,x	
	lda #1
	sta $d800,x
	sta $d900,x
	sta $da00,x
	sta $db00,x	
	
	dex
	bne u4
	
	lda #0
	sta $d015

	lda #$3
	sta $dd00
	
	lda #27
	sta $d011
	lda #21
	sta $d018
	lda #200
	sta $d016



	ldx #119
u5	lda hiddentext,x
	sta 1024+10*40,x
	dex
	bne u5

	ldx #40
	lda #46
u6	dex
	sta 1024,x
	bne u6

	lda #$0f
	sta $d020



;	lda #<irqentry
;	ldy #>irqentry
;	sta $fffe
;	sty $ffff

	lda #54
	sta $01


_ld1	lda #fnamel
	ldx #<fnameflis
	ldy #>fnameflis
	jsr loadfile
	bcs _ld1

	lda #160
	sta $0400


_ld2	lda #fnamel
	ldx #<fnamefli0900
	ldy #>fnamefli0900
	jsr loadfile
	bcs _ld2

	lda #160
	sta $0401
	sta $0402

_ld3	lda #fnamel
	ldx #<fnamefli4000
	ldy #>fnamefli4000
	jsr loadfile
	bcs _ld3

	ldx #18
	lda #160
u7	sta $0402,x
	dex
	bne u7

_ld4	lda #fnamel
	ldx #<fnamefli8b00
	ldy #>fnamefli8b00
	jsr loadfile
	bcs _ld4

	lda #160
	sta 1024+1+2+18
	sta 1024+1+2+18+1


_ld5	lda #fnamel
	ldx #<fnameflic000	; gets npacked to $c000-fff0 , loads to $9500
	ldy #>fnameflic000
	jsr loadfile
	bcs _ld5

	ldx #39
	lda #160
u8	sta $0400,x
	dex
	bne u8

	sei
	jsr reset_sid
	
	lda #48
	sta $01

endoff=$9500+7772

	lda #<endoff ;ctll
	sta $930f
	lda #>endoff
	sta $9310

	jsr $9312 ; exomizer: decrunch_file	
	
	lda #55
	sta $01
	cli
	
	jmp $0800
	
irqentry
 PHA
 TXA
 PHA
 TYA
 PHA
 JMP ($0314)   ; Vector: BRK Instruction Interrupt Address	
	
irqex
	pla
	tay
	pla
	tax
	pla
	rti

irq_h
	inc $d019
;	inc $d020
 	jsr $1003
;	dec $d020
	jmp irqex
	
	;;;;

;.scru "                                        "
hiddentext
.scru "  nice, you have f0und h1dd3n p4rt :-)  "
.scru "for 1541: insert first side, w8 and see "
.scru "1571/1581:just wait while loading stuff!"
;;

;......................;
fnameflis
.text "1000000000000110"
fnamefli0900
.text "1000000000001001"
fnamefli4000
.text "0110100101101001"
fnamefli8b00
.text "0110000000000000"
fnameflic000
.text "1001000000000000"
